home *** CD-ROM | disk | FTP | other *** search
/ Sunday Savers: Sharing Fun! I Know My Savior Lives / Sunday Savers: Sharing Fun! I Know My Savior Lives.iso / pc / intro.dxr / 00020_accept.ls < prev    next >
Encoding:
Text File  |  2009-10-06  |  267 b   |  11 lines
  1. on mouseDown
  2.   sprite(18).member = "buttonDown"
  3. end
  4.  
  5. on mouseUp
  6.   global programTitle
  7.   sprite(18).member = "buttonUp"
  8.   baWriteRegString("Software\Covenant\" & programTitle, "Registration", "Accepted " & the short date, "HKEY_LOCAL_MACHINE")
  9.   go(the frame + 1)
  10. end
  11.